@BAlign @P@ICopyright Gold Disk Inc., February, 1992
This Genie aligns multiple boxes at a specified position. Click on each box to be aligned and then click on the artboard or in empty space when finished selecting boxes.
*/
cr = '0a'x
counter = 0
address command
call SafeEndEdit.rexx()
units = ppm_GetUnits()
if units = 3 then
call ppm_SetUnits(1)
signal on halt
signal on break_c
signal on break_e
signal on break_d
/* Prompt user to click on boxes to be aligned
* if the user clicks on the page or the art board
* a boxnumber of 0 will be returned, use that
* to exit loop
*/
do forever
box = ppm_ClickOnBox( "Click on boxes to be aligned" )
if box = 0 then leave
counter = counter + 1
boxes.counter = box /* store box number in compound variable */
call ppm_SelectBox(box)
end
if counter = 0 then exit_msg()
/* Prompt use to enter alignment - L, R, T, B, CV, CH */